home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ IE New Zone.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  6.6 KB  |  140 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\Zones"
  5. "NAME"="Tracking Zone"
  6. "VERSION"="1.01"
  7. "OSVERSION"="11111"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Add Security Zone"
  10. "DESCRIPTION 1"="For MSIE: Add a new security zone to block websites that track user activities."
  11. "AUTHOR"="Ojatex@aol.com"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"="For more information, go to http://www.xteq.com."
  14. "COMMENT 2"="Thanks to CptSiskoX for the plugin suggestion."
  15.  
  16. spC="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\"
  17. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\@"
  18. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\DisplayName" 'stgTracking sites
  19. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\Description"  'stgThis zone contains Web sites that want to track your activities.
  20. sP3="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\Icon"  'stginetcpl.cpl#00004481
  21. sP4="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\CurrentLevel"  'dwrd00000000
  22. sP5="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\MinLevel"   'dwrd00012000
  23. sP6="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\RecommendedLevel"  'dwrd00012000
  24. sP7="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\Flags"  'dwrd00000003
  25. sP8="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1001"  'dwrd00000003
  26. sP9="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1004"   'dwrd00000003
  27. sP10="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1200"  'dwrd00000003
  28. sP11="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1201"  'dwrd00000003
  29. sP12="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1400"  'dwrd00000003
  30. sP13="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1402"   'dwrd00000003
  31. sP14="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1405"  'dwrd00000003
  32. sP15="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1601"  'dwrd00000101
  33. sP16="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1604"  'dwrd00000003
  34. sP17="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1605"   'dwrd00000000
  35. sP18="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1800"  'dwrd00000003
  36. sP19="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1802"  'dwrd00000003
  37. sP20="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1803"  'dwrd00000003
  38. sP21="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1804"   'dwrd00000003
  39. sP22="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1805"  'dwrd00000001
  40. sP23="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1A00"  'dwrd00010000
  41. sP24="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1C00"  'dwrd00000000
  42. sP25="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1E05"  'dwrd00010000
  43. sP26="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1406"  'dwrd00000003
  44. sP27="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1407"  'dwrd00000003
  45. sP28="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1606"   'dwrd00000003
  46. sP29="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1607"  'dwrd00000003
  47. sP30="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1A02"  'dwrd00000003
  48. sP31="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5\1A03"  'dwrd00000003
  49.  
  50. Sub Plugin_Initialize 
  51.  
  52.  
  53.   if RegValueExists(sP) then
  54.   SetUIElement 1,true
  55.  
  56. end if
  57. End Sub
  58.  
  59. Sub Plugin_CheckData(ElementIndex)
  60. End Sub
  61.  
  62. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  63.  
  64.  b=GetUIElement(1)
  65.  if b=true then
  66.     Call RegWriteValue(sP,"",1)
  67.     Call RegWriteValue(sP1,"Tracking Sites",1)
  68.     Call RegWriteValue(sP2,"This zone contains Web sites that want to track your activities.",1)
  69.     Call RegWriteValue(sP3,"inetcpl.cpl#00004481",1)
  70.     Call RegWriteValue(sP4,"00000000",2)
  71.     Call RegWriteValue(sP5,"00012000",2)
  72.     Call RegWriteValue(sP6,"00012000",2)
  73.     Call RegWriteValue(sP7,"00000003",2)
  74.     Call RegWriteValue(sP8,"00000003",2)
  75.     Call RegWriteValue(sP9,"00000003",2)
  76.     Call RegWriteValue(sP10,"00000003",2)
  77.     Call RegWriteValue(sP11,"00000003",2)
  78.     Call RegWriteValue(sP12,"00000003",2)
  79.     Call RegWriteValue(sP13,"00000003",2)
  80.     Call RegWriteValue(sP14,"00000003",2)
  81.     Call RegWriteValue(sP15,"00000101",2)
  82.     Call RegWriteValue(sP16,"00000003",2)
  83.     Call RegWriteValue(sP17,"00000000",2)
  84.     Call RegWriteValue(sP18,"00000003",2)
  85.     Call RegWriteValue(sP19,"00000003",2)
  86.     Call RegWriteValue(sP20,"00000003",2)
  87.     Call RegWriteValue(sP21,"00000003",2)
  88.     Call RegWriteValue(sP22,"00000001",2)
  89.     Call RegWriteValue(sP23,"00010000",2)
  90.     Call RegWriteValue(sP24,"00000000",2)
  91.     Call RegWriteValue(sP25,"00010000",2)
  92.     Call RegWriteValue(sP26,"00000003",2)
  93.     Call RegWriteValue(sP27,"00000003",2)
  94.     Call RegWriteValue(sP28,"00000003",2)
  95.     Call RegWriteValue(sP29,"00000003",2)
  96.     Call RegWriteValue(sP30,"00000003",2)
  97.     Call RegWriteValue(sP31,"00000003",2)
  98.  
  99. else
  100.     Call RegDeleteValue(sP)
  101.     Call RegDeleteValue(sP1)
  102.     Call RegDeleteValue(sP2)
  103.     Call RegDeleteValue(sP3)
  104.     Call RegDeleteValue(sP4)
  105.     Call RegDeleteValue(sP5)
  106.     Call RegDeleteValue(sP6)
  107.     Call RegDeleteValue(sP7)
  108.     Call RegDeleteValue(sP8)
  109.     Call RegDeleteValue(sP9)
  110.     Call RegDeleteValue(sP10)
  111.     Call RegDeleteValue(sP11)
  112.     Call RegDeleteValue(sP12)
  113.     Call RegDeleteValue(sP13)
  114.     Call RegDeleteValue(sP14)
  115.     Call RegDeleteValue(sP15)
  116.     Call RegDeleteValue(sP16)
  117.     Call RegDeleteValue(sP17)
  118.     Call RegDeleteValue(sP18)
  119.     Call RegDeleteValue(sP19)
  120.     Call RegDeleteValue(sP20)
  121.     Call RegDeleteValue(sP21)
  122.     Call RegDeleteValue(sP22)
  123.     Call RegDeleteValue(sP23)
  124.     Call RegDeleteValue(sP24)
  125.     Call RegDeleteValue(sP25)
  126.     Call RegDeleteValue(sP26)
  127.     Call RegDeleteValue(sP27)
  128.     Call RegDeleteValue(sP28)
  129.     Call RegDeleteValue(sP29)
  130.     Call RegDeleteValue(sP30)
  131.     Call RegDeleteValue(sP31)
  132.     Call RegDeletePath("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\5")
  133.  end if
  134.  
  135. End Sub
  136.  
  137. Sub Plugin_Terminate 
  138. End Sub
  139.  
  140.